Option Explicit
Sub P_Sample002()
    Dim myFs   As FileSearch
    Dim myPath As String
    Dim myClc  As New Collection
    Dim i      As Long
    Set myFs = Application.FileSearch
    myPath = ThisWorkbook.Path		'NƧ
    With myFs
        .NewSearch
        .LookIn = myPath
        .FileType = msoFileTypeAllFiles
        .Filename = "*.*"
        .SearchSubFolders = True
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            For i = 1 To .FoundFiles.Count
                If .FoundFiles(i) Like myPath & "*" Then
                    On Error Resume Next
                    myClc.Add .FoundFiles(i), .FoundFiles(i)
                    On Error GoTo 0
                End If
            Next
        End If
    End With
    Set myFs = Nothing			'
    With myClc
        If .Count > 0 Then
            For i = 1 To .Count
                Debug.Print .Item(i)
            Next
        Else
            Debug.Print "Lkwɮ"
        End If
    End With
    Set myClc = Nothing				'
End Sub
